home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / amag / AM9403_2.lha / tips & tricks / debuggen.asm next >
Assembly Source File  |  1994-01-21  |  862b  |  25 lines
  1. blink:
  2. movem.l  d0-d1/a6,-(a7)  ; Register retten
  3. move.w   sr,dl           ; Statusregister retten
  4. move.l   #50000,d0       ; Wert für Warteschleife
  5. bsr      blinkwait       ; etwas warten
  6. bclr     #1,$bfe001      ; LED an
  7. move.l   #60000,d0       ; Wert für Warteschleife
  8. bsr      blinkwait       ; etwas warten
  9. bset     #1,$bfe001      ; LED aus
  10. move.l   4,a6            ; ExecBase nach a6
  11. move.w   d1,d0           ; altes S-Register nach d0
  12. moveq    #-1,d1          ; Maske = -1
  13. jsr      -144(a6)        ; S-Register restaurieren
  14. movem.l  (a7)+,d0-d1/a6  ; Register restaurieren
  15. rts                      ; und zurück
  16.  
  17. blinkwait:
  18. ; Diese Warteschleife läßt sich eleganter
  19. ; mit der Delay-Funktion der DOS-Library
  20. ; lösen. Diese Befehle dienen nur der
  21. ; Demonstration
  22. sub.l    #1,d0           ; Zähler erniedrigen
  23. bne      blinkwait       ; solange d0 <> 0
  24. rts
  25.